* test/automated/package-test.el (package-test-install-single):

Add a test for bug#21625.

diff --git a/test/automated/package-test.el b/test/automated/package-test.el
index ae10a9be0dba8cb907ddec596dd2f3b6b538972b..de41c3bc8e417fc3bb7c7917edf1b28877483219 100644 (file)
--- a/test/automated/package-test.el
+++ b/test/automated/package-test.el
@@ -205,6 +205,12 @@ Must called from within a `tar-mode' buffer."
     (should (package-install-from-buffer))
     (package-initialize)
     (should (package-installed-p 'simple-single))
+    ;; Check if we properly report an "already installed".
+    (package-install 'simple-single)
+    (with-current-buffer "*Messages*"
+      (should (string-match "^[`‘']simple-single[’'] is already installed\n?\\'"
+                            (buffer-string))))
+    (should (package-installed-p 'simple-single))
     (let* ((simple-pkg-dir (file-name-as-directory
                             (expand-file-name
                              "simple-single-1.3"